﻿
Namespace UI

	''' <summary>
	''' 当システムのマスターページ用抽象クラス
	''' </summary>
	''' <remarks>
	''' マスターページは当抽象クラスを継承してください。
	''' </remarks>
	Public Class CommonMasterPage
		Inherits Moca.Web.UI.MocaMasterPage

#Region " Handles "

		''' <summary>
		''' 初期化
		''' </summary>
		''' <param name="sender"></param>
		''' <param name="e"></param>
		''' <remarks></remarks>
		Private Sub Page_Init(sender As Object, e As System.EventArgs) Handles Me.Init
			If Not Sys.Settings.IsSetup Then
				If Not Me.Page.Request.Url.ToString.Contains("Setup.aspx") Then
					Response.Redirect("~/Setup.aspx")
				End If
			End If
		End Sub

#End Region

	End Class

End Namespace
